home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / LARGE.ICN < prev    next >
Text File  |  1990-03-28  |  773b  |  26 lines
  1. procedure main ()
  2.    if not(&features == "large integers") then
  3.       stop("large integers not supported")
  4.  
  5.     big :=  111111111111111111111
  6.     med1 := "2222222222"
  7.     med2 := "3333333333"
  8.     small := 4
  9.  
  10.     every optest ("+" | "-" | "*" | "/" | "%" |"iand"|"ior"|"ixor"|"<"|"=",
  11.           big | -big | small | -small, 
  12.           big | -big | small | -small)
  13.     every optest ("+" | "-" | "*" | "/" | "%" |"iand"|"ior"|"ixor"|"<"|"=",
  14.           big | med1 | -med1,
  15.           med1 | med2 | -med2)
  16.  
  17.     every optest ("^", big | -big | small | -small, 2 | 5)
  18.     every optest ("^", 2 | 3, 10 | 30 )
  19.     every optest ("ishift", big |-big | med1 | -med1 | small, 1 | 8 | -1 | -39)
  20.  
  21. end
  22.  
  23. procedure optest (op, a, b)
  24.     write (a, " ", op, " ", b, " = ", op(a,b)|"none")
  25. end
  26.